proc broadcast {nick host botnet} {
global botnick home bcast
if {$botnet == ""} {
  putserv "NOTICE $nick :ERROR - Invalid Syntax - Should Be - (/msg) $botnick broadcast <message>"
  return 0
  }
  putlog "!$nick ($host)! broadcast $botnet"
  putserv "NOTICE $nick :Sucessfully sent global broadcast '\002$botnet\002' to all channels listed in channel partition."
if {$bcast == "1"} {
  putserv "PRIVMSG $home :\002$nick\002 ($host) used to broadcast global message: $botnet"
  }
  foreach chan [channels] {
  putserv "PRIVMSG $chan :\002Global Message from $nick\002: $botnet"    
  }
  return 0
  }


